***FIGURE 3****

*First run the regression:
eststo M3a: logit allbuster_1pct lagts3p lnlaggdpp c.lnlaggdpt##c.lnlaggdpt lagtradeopenp i.DefPactPT i.sanct_sev idealpointdistance duration arcsin_min nobust_1pct nobustsq_1pct nobustcb_1pct if P_Sender !=1

*Generate Figure 3
margins, at(lnlaggdpt=(11.65844(0.5)23.14414))
marginsplot, recastci(rarea) recast(line) /// 
	ciopt(color(%20)) plotregion(margin(none)) xlabel(,labels angle(45)) ///
	title("Probability of Sanctions Busting Across Target's Economic Size") ///
	xtitle("Economic Size, Target (ln GDP)") ///
	ytitle("Probability of Sanctions Busting") ///
	ylabel(0.05(0.01).1) xlabel(,format(%9.2f)) 
*The red dots are placed on the small-, medium-, and larger-sized economies by hand
